home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Day Cry
/
Day Cry CD.bin
/
oh_towns
/
fb386smp
/
bas
/
buble.bas
< prev
next >
Wrap
BASIC Source File
|
1994-09-20
|
499b
|
23 lines
100 RANDOMIZE TIME
110 '
120 N=10
130 DIM DAT(N)
140 FOR I=1 TO N:DAT(I)=INT(RND*100):NEXT
150 '
160 PRINT :PRINT "âoâuâïâ\ü[âg"
170 PRINT :PRINT "É«ù±æO"
180 FOR I=1 TO N:PRINT USING"###:###";I;DAT(I);:NEXT
190 GOSUB *âoâuâïâ\ü[âg
200 PRINT :PRINT "É«ù±îπ"
210 FOR I=1 TO N:PRINT USING"###:###";I;DAT(I);:NEXT
220 PRINT
230 END
240 '
250 *âoâuâïâ\ü[âg
260 FOR I=1 TO N
270 FOR J=1 TO N-I
280 IF DAT(J)>DAT(J+1) THEN SWAP DAT(J),DAT(J+1)
290 NEXT
300 NEXT
310 RETURN